Mac100% 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Utility / CNIF_MacroMaker 1.4.sit / CNIF_MacroMaker 1.4 / CNIF_MacroMaker / background_4249.xml < prev next >

Wrap

Extensible Markup Language | 1999-01-11 | 62KB | 1,411 lines

<?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" > <background> <id>4249</id> <filler1>0</filler1> <bitmap>BMAP_7035.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" /> <part> <id>59</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <true /> </lockText> <rect> <left>194</left> <top>45</top> <right>393</right> <bottom>61</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script>on mouseUpsend "mouseUp" to bg fld id 11end mouseUp</script> </part> <part> <id>58</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>137</left> <top>69</top> <right>213</right> <bottom>89</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownput "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ[;ﾃ影ﾃ鵜ﾃ厩ﾃ曳;JPEG;:NAPLPS" into mitemUxPop mitem,"T",,the topLeft of meif it <> empty thenset the enabled of bg btn id 41 to (it is "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ[")end ifend mouseDown</script> </part> <part> <id>52</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>354</left> <top>130</top> <right>393</right> <bottom>146</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｫIﾃｫï｣ｿ...</name> <script>on mouseUpsend "mouseUp" to bg fld id 7end mouseUp</script> </part> <part> <id>51</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>354</left> <top>102</top> <right>393</right> <bottom>118</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｫIﾃｫï｣ｿ...</name> <script>on mouseUpsend "mouseUp" to bg fld id 5end mouseUp</script> </part> <part> <id>48</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>409</left> <top>176</top> <right>489</right> <bottom>196</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｯ窶愿ｨW</name> <script>on mouseUpglobal CNMeditTextput false into CNMeditTextset the cursor to watchlock screenif bg fld id 46 is empty then put "Untitled" into bg fld id 46set the width of bg fld id 46 to length (bg fld id 46) * 9show bg fld id 42show bg fld id 46show bg btn id 44show bg btn id 45unlock screen with zoom open fastend mouseUp</script> </part> <part> <id>47</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>409</left> <top>147</top> <right>489</right> <bottom>167</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｪVﾃ｣Kﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦ</name> <script>on mouseUpglobal CNMeditTextset the cursor to watchlock screenput empty into bg fld id 7put "Untitled" into bg fld id 46set the width of bg fld id 46 to length (bg fld id 46) * 9put true into CNMeditTextput bg fld id 9 into forumNameput bg fld id 16 into softNameput PathToFile(bg fld id 5) into upfileNameput cd fld "UserName" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into UserNameput cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into UserIDif forumName is in "FJAMEA,FJAMES,FJAMEP" thenput 2 into cStyleelse if forumName is in "MUON" thenput 3 into cStyleelseput 1 into cStyleend ifput the script of me into theTextrepeat until "end mouseUp" is not in theTextdelete char 1 to (offset("end mouseUp",theText) + 12) of theTextend repeatdo "put offset(" & quote & "/* text" & cStyle & "s */" & quote & ",theText) + 13 into x"do "put offset(" & quote & "/* text" & cStyle & "e */" & quote & ",theText) - 1 into y"put char x to y of theText into theTextif cStyle is 2 or cStyle is 3 thenif cStyle is 2 thenput "ﾃyﾃ噂ﾃ液ﾃ曳ﾃｱﾂｺﾃz" into p1put "ﾃyﾃｬoﾃ①ﾃｲ^ﾃ①ﾃｱﾂｺﾃz" into p2elseput "ﾃyﾃｬoﾃ①ﾃｲ^ﾃ①ﾃｱﾂｺﾃz" into p1put "ﾃyﾃ映ﾃ[ﾃ運ﾃｱ{ﾃｱﾂｺﾃz" into p2put " " & bg fld id 11 after line (item 1 of MtScanList(theText,"ﾃyﾃｬoﾃｲ^ﾃ①ﾃｨﾃ催ｨﾃ､ﾃz")) of theTextend ifput softName after line (item 1 of MtScanList(theText,p1)) of theTextput upfileName after line (item 1 of MtScanList(theText,p2)) of theTextput the long date after line (item 1 of MtScanList(theText,"ﾃyﾃ･fﾃｧ竅ﾃ･ﾃｩﾃｬﾋ凖z")) of theTextput UserName & " (" & UserID & ")" after line (item 1 of MtScanList(theText,"ﾃyﾃｭﾃｲﾃｧﾃﾃ･窶ﾃｩ窶愿z")) of theTextput UserName & " (" & UserID & ")" after line (item 1 of MtScanList(theText,"ﾃyﾃ･f ﾃｧ竅ﾃｩ窶愿z")) of theTextrepeat with r = 17 to 21put bg fld id r after char offset((r - 16) & ":",theText) + 1 of theTextend repeatelseput softName after line (item 1 of MtScanList(theText,"ﾃ噂ﾃ液ﾃ曳ﾃｱﾂｺﾃ⑦")) of theTextput UserName & " / " & UserID after line (item 1 of MtScanList(theText,"ﾃｧﾃ湘ｩ窶愿⑦")) of theTextend ifput theText into bg fld id 42show bg fld id 42show bg fld id 46show bg btn id 44show bg btn id 45unlock screen with zoom open fastend mouseUp-- MAUGﾃｬﾃｹﾃﾃ催ｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ羽ﾃ[ﾃ厭ﾃ叡ﾃ曳ﾃ⑿ﾃ映ﾃ液ﾃ羽ﾃ嘉｣ﾃ曳ﾃ⒀/* text1s */ﾃ噂ﾃ液ﾃ曳ﾃｱﾂｺﾃ⑦ﾃｮzﾃｯtﾃｯﾋ堙ｱ@ﾃ⑦ﾃｬ]ﾃｧ竅ﾃｯﾋ堙ｱ@ﾃ⑦ﾃ①ﾃ①ﾃｧﾃ湘ｩ窶愿⑦ﾃ①ﾃ･fﾃｧ竅ﾃｩ窶愿⑦ﾃｬﾃ佚ｨ窶ﾃｬﾃﾃｧﾃ湘､ﾂｬﾃ｣ﾂｴﾃ⑦ﾃ､Jﾃｮ竕ﾃ､ﾂｬﾃ｣ﾂｴﾃ⑦ﾃ､Jﾃｮ竕ﾃ･ﾃｦﾃ･ﾃ催⑦ﾃ竕･ﾃｨkﾃｯﾋ堙ｱ@ﾃ⑦ﾃ｢ﾃｲﾃｪﾄｱﾃｫﾅ津ｧﾃ凖⑦ﾃ嘘ﾃ嘉ﾃ嘉ｬﾃ曳ﾃ⑦ﾃ①ﾃﾂｻﾃｨ窶/POST/* text1e */-- FJAMEﾃ碓ﾃ嘉｣ﾃ[ﾃ益ﾃ液ﾃ羽ﾃ[ﾃ厭ﾃ叡ﾃ曳/* text2s */============================================================================ﾃyﾃ噂ﾃ液ﾃ曳ﾃｱﾂｺﾃzﾃ①ﾃyﾃ頴ﾃ[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃzﾃ①ﾃyﾃｬoﾃ①ﾃｲ^ﾃ①ﾃｱﾂｺﾃzﾃ①ﾃyﾃｭﾃｲﾃｧﾃﾃ･窶ﾃｩ窶愿zﾃ①ﾃyﾃ･f ﾃｧ竅ﾃｩ窶愿zﾃ①ﾃyﾃｬ] ﾃｧ竅ﾃ･竕･ﾃzﾃ①ﾃyﾃｬﾃﾃｧﾃﾃ､ﾂｬﾃ｣ﾂｴﾃzﾃ①ﾃyﾃｬﾃﾃｧﾃﾃ､mﾃｮFﾃzﾃ①ﾃyﾃ･fﾃｧ竅ﾃ･ﾃｩﾃｬﾋ凖zﾃ①ﾃyﾃｧﾃ湘ｪﾂｨﾃｯﾋ堙ｱ@ﾃzﾃ①ﾃySOFTﾃﾃε｣ﾃ甘ｯ邃｢ﾃzﾃ①ﾃySOFTﾃﾃεｮzﾃｯzﾃ①ﾃ①ﾃ①ﾃ⑴ﾃｬ]ﾃｧ竅ﾃｨï｣ｿﾃ･ﾃｨﾃzﾃ①----------------------------------------------------------------------------ﾃyﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃzﾃ①1: 2: 3: 4: 5:============================================================================ﾃyﾃｮﾄｱﾃ①ﾃ① ﾃｧlﾃz----------------------------------------------------------------------------/POST/* text2e */-- MUONﾃ液ﾃ羽ﾃ[ﾃ厭ﾃ叡ﾃ曳/* text3s */============================================================================ﾃyﾃｬoﾃｲ^ﾃ①ﾃｨﾃ催ｨﾃ､ﾃzﾃ①LIBﾃyﾃｬoﾃ①ﾃｲ^ﾃ①ﾃｱﾂｺﾃzﾃ①ﾃyﾃ映ﾃ[ﾃ運ﾃｱ{ﾃｱﾂｺﾃzﾃ①ﾃyﾃ頴ﾃ[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃzﾃ①ﾃyﾃ映ﾃ[ﾃ運ﾃｩﾃ古ｳïｬﾃzﾃ①ﾃyﾃｭﾃｲﾃｧﾃﾃ･窶ﾃｩ窶愿zﾃ①ﾃyﾃ･f ﾃｧ竅ﾃｩ窶愿zﾃ①ﾃyﾃｬ] ﾃｧ竅ﾃ･竕･ﾃzﾃ①ﾃyﾃｬﾃﾃｧﾃﾃ､ﾂｬﾃ｣ﾂｴﾃzﾃ①ﾃyﾃｬﾃﾃｧﾃﾃ､mﾃｮFﾃzﾃ①ﾃyﾃ･fﾃｧ竅ﾃ･ﾃｩﾃｬﾋ凖zﾃ①ﾃyﾃｧﾃ湘ｪﾂｨﾃｯﾋ堙ｱ@ﾃzﾃ①ﾃySOFTﾃﾃε｣ﾃ甘ｯ邃｢ﾃzﾃ①ﾃyﾃｬ]ﾃｧ竅ﾃﾃεｨï｣ｿﾃ･ﾃｨﾃzﾃ①----------------------------------------------------------------------------ﾃyﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃzﾃ①1: 2: 3: 4: 5:============================================================================ﾃyﾃｮﾄｱﾃ①ﾃ① ﾃｧlﾃz----------------------------------------------------------------------------/POST/* text3e */</script> </part> <part> <id>43</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>404</left> <top>47</top> <right>444</right> <bottom>87</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>24105</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name> <script>on mouseUpglobal CNMeditTextput false into CNMeditTextlock screenput (the shiftKey is down) into sftput bg fld id 7 into filePathif filePath is empty or there is not a file filePath or the optionKey is down thenanswer file "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "text"if it is empty then exit mouseUpput it into filePathput filePath into bg fld id 7end ifput PathToFile(filePath) into fileNameput fileName into bg fld id 46set the cursor to watchput empty into theTextopen file filePathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifread from file filePath for 30000put it into theTextclose file filePathif sft is false then put delUPLoadCommand(theText) into theTextput theText into bg fld id 42set the width of bg fld id 46 to length (bg fld id 46) * 9show bg fld id 42show bg fld id 46show bg btn id 44show bg btn id 45unlock screen with zoom open fastend mouseUp</script> </part> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>8</left> <top>4</top> <right>194</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>mainMenu</name> <script>on mouseDownmainMenuend mouseDown</script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>200</left> <top>4</top> <right>445</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenu</name> <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script> </part> <part> <id>5</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>22</left> <top>102</top> <right>348</right> <bottom>118</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseUpif the optionKey is down thenput empty into meelseanswer file "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃ陛ﾂｫﾃﾃ催竕暗竏妥ﾂｩﾃ③" -- of type "SITD" or "PACT" or "LHA " or "APPL"if it is not empty then put it into meend ifend mouseUpon mouseEnterset the textAlign of me to rightpass mouseEnterend mouseEnteron mouseLeaveset the textAlign of me to leftpass mouseLeaveend mouseLeave</script> </part> <part> <id>7</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>22</left> <top>130</top> <right>348</right> <bottom>146</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseUpif the optionKey is down thenput empty into meelseanswer file "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃ陛ﾂｫﾃﾃ催竕暗竏妥ﾂｩﾃ③" of type textif it is not empty then put it into meend ifend mouseUpon mouseEnterset the textAlign of me to rightpass mouseEnterend mouseEnteron mouseLeaveset the textAlign of me to leftpass mouseLeaveend mouseLeave</script> </part> <part> <id>9</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>22</left> <top>42</top> <right>98</right> <bottom>62</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownforumMenuend mouseDown</script> </part> <part> <id>11</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <true /> </lockText> <rect> <left>137</left> <top>45</top> <right>192</right> <bottom>61</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseUpglobal ListSelectExitset the cursor to watchput bg fld id 9 into forumNameif forumName is empty thenbeepanswer "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｱﾂｺﾃï｣ｿﾃｪﾃ甘窶ｦﾃｪ窶ｺﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit mouseUpend ifput me into mif the optionKey is up thenput empty into sif m is empty then put 1 into mrepeat with r = 1 to (the number of cards of bg "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ[ﾃﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ")if bg fld id 14 of cd r of bg "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ[ﾃﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" is forumName thenput bg fld id 58 of cd r of bg "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ[ﾃﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" into LIBNameListif LIBNameList is empty then next repeatrepeat with l = 1 to the number of lines of LIBNameListdelete char 1 to 2 of line l of LIBNameListdelete char 4 to 25 of line l of LIBNameListput word 1 of line l of LIBNameList into nif n is m then put "s=" & l into send repeatif s is empty then put "s=1" into sget ListSelect ("*1",LIBNameList,s,"ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃｪﾃ甘ﾃ LIB ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③","100,40,410,280",return,"ASLFont+,9")if ListSelectExit is "Cancel" or it is empty then exit mouseUpput word 1 of it into medelete char 1 to 4 of itput it into bg fld id 59exit mouseUpend ifend repeatend ifask "LIB ﾃｮ窶佚ｧﾃ愿ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③(1 - 20)" with mif the result is "Cancel" then exit mouseUpif (it is not a integer or it < 1 or it > 20) thenbeepelseput it into meput empty into bg fld id 59end ifend mouseUp</script> </part> <part> <id>16</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>22</left> <top>158</top> <right>393</right> <bottom>174</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldcheckTextL "40","ﾃ映ﾃ[ﾃ運ﾃｱﾂｺ"end closeFieldon exitFieldcheckTextL "40","ﾃ映ﾃ[ﾃ運ﾃｱﾂｺ"end exitField</script> </part> <part> <id>17</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>54</left> <top>201</top> <right>393</right> <bottom>216</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end closeFieldon exitFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end exitField</script> </part> <part> <id>18</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>54</left> <top>222</top> <right>393</right> <bottom>237</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end closeFieldon exitFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end exitField</script> </part> <part> <id>19</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>54</left> <top>243</top> <right>393</right> <bottom>258</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end closeFieldon exitFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end exitField</script> </part> <part> <id>20</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>54</left> <top>264</top> <right>393</right> <bottom>279</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end closeFieldon exitFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end exitField</script> </part> <part> <id>21</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>54</left> <top>285</top> <right>393</right> <bottom>300</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on closeFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end closeFieldon exitFieldcheckTextL "20","ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ["end exitField</script> </part> <part> <id>23</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>0</left> <top>330</top> <right>12</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itend mouseUp</script> </part> <part> <id>26</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>285</left> <top>317</top> <right>305</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8349</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevBgend mouseUp</script> </part> <part> <id>27</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>306</left> <top>317</top> <right>326</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23718</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevCdend mouseUp</script> </part> <part> <id>28</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>325</left> <top>317</top> <right>345</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23717</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextCdend mouseUp</script> </part> <part> <id>29</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>346</left> <top>317</top> <right>366</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8350</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextBgend mouseUp</script> </part> <part> <id>30</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>370</left> <top>317</top> <right>390</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13301</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevMcend mouseUp</script> </part> <part> <id>31</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>389</left> <top>317</top> <right>409</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13302</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextMcend mouseUp</script> </part> <part> <id>32</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>454</left> <top>317</top> <right>474</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6720</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoTopCdend mouseUp</script> </part> <part> <id>33</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>39</left> <top>318</top> <right>153</right> <bottom>339</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>NIFTY-Navigator II</name> <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script> </part> <part> <id>34</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>404</left> <top>95</top> <right>444</right> <bottom>135</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>26000</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>extend</textStyle> <name>Editorﾃ｣Nﾃｬﾃ</name> <script>on mouseUpput bg fld id 7 into filePathput EditorPath() into editorif filePath <> empty thenset the cursor to watchif there is not a file filePath or the optionKey is down thenanswer file quote& pathToFile(filePath) &quote&& "ﾃﾃ陛ﾂｫﾃﾂｱﾃ竕暗竏妥ﾂｩﾃ⑨" of type textif it is empty thenexit mouseUpend ifput it into filePathend ifopen filePath with editorelseopen editorend ifend mouseUp</script> </part> <part> <id>40</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>453</left> <top>95</top> <right>493</right> <bottom>135</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>24003</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name> <script>on mouseUpput postPath() into FldrPathif FldrPath <> empty thendelFilesInFldr FldrPath,,"postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾂｩﾃﾃ"end ifend mouseUp</script> </part> <part> <id>41</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>453</left> <top>47</top> <right>493</right> <bottom>87</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>25009</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[</name> <script>on mouseUpset the cursor to watch-- ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ ---> postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲get dataCheck(false)if it <> empty thenbeepanswer "ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③" & return & return & itexit mouseUpend ifput "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"upLoadFileCopy bg fld id 5get the resultif "ﾃ烏ﾃ嘉｢ﾃ[" is in it thenanswer itexit mouseUpend ifput "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"put bg fld id 7 into filePath-- ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePathput "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"put readText(filePath) into theTextif the number of lines of theText is 1 and "ﾃ烏ﾃ嘉｢ﾃ[" is in theText thenbeepanswer theTextexit mouseUpend ifput delUPLoadCommand(theText) into theTextput UPLoadCommand(theText) into theTextput "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"MtWriteFile postPath() & commentfileName(),theText,EditorCreator()if the result is not empty thenanswer "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃﾃεｧ竄ｬﾃ窶ｦﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" & return & the resultend ifhide msgend mouseUp</script> </part> <part> <id>42</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>8</left> <top>46</top> <right>505</right> <bottom>315</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script>on closeFieldglobal CNMeditTextput true into CNMeditTextend closeField</script> </part> <part> <id>44</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>28</top> <right>505</right> <bottom>47</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>-1</titleWidth> <icon>-1</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>FieldTitleBar</name> <script></script> </part> <part> <id>45</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>16</left> <top>31</top> <right>29</right> <bottom>44</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseStillDownif the mouseLoc is within (the rect of me) thenset the icon of me to 23100set the cursor to arrowelseset the icon of me to 0end ifend mouseStillDownon mouseUp opglobal CNMeditTextset the icon of me to 0select emptylock screenset the cursor to watchif (CNMeditText is true or the optionKey is down or op is true) and bg fld id 42 <> empty thenif op <> true then beepanswer "ﾃｯﾅ禿ｧXﾃｬ窶｡ﾃｳeﾃï｣ｿﾃｯ竄ｬﾃｫ竏づﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "No" or "Yes"if it is "Cancel" then exit mouseUp-- end if-- if it is "Yes" or op is true thenif it is "Yes" thenput bg fld id 7 into filePathif filePath is empty or there is not a file filePath thenput bg fld id 46 into fileNameask file "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ窶ｦﾃｯ竄ｬﾃｫ竏づﾂｵﾃ窶ｹﾃ竏妥③" with fileNameif the result <> empty then exit mouseUpput it into filePathend ifput getFldrPath(filePath) into fldrPathput postPath() into postPathif fldrPath is postPath thenbeepanswer "postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾃｷﾃﾃε瓜ﾃ[ﾃ疫ﾃﾃ陛竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津③ﾃｯﾂﾃﾃεｨﾃ催ｨﾃ､ﾃ窶ｦﾃ瓜ﾃ[ﾃ疫ﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "postﾃ閲ﾃ運ﾃ嘉ｬﾃ竕暗陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ竏ﾃﾃ催ｨﾃｨﾃ窶ｦﾃ嘘ﾃ鋭ﾃ[ﾃﾂｵﾃ窶ｹﾃ竏妥③"exit mouseUpend ifput delUPLoadCommand(bg fld id 42) into theTextMtWriteFile filePath,theText,EditorCreator()put filePath into bg fld id 7put pathToFile(filePath) into bg fld id 46end ifend ifif op <> true thenhide bg fld id 42hide bg fld id 46hide bg btn id 44hide bg btn id 45put false into CNMeditTextunlock screen with zoom close fastend ifend mouseUp</script> </part> <part> <id>46</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>218</left> <top>29</top> <right>290</right> <bottom>46</bottom> </rect> <style>opaque</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>18</textHeight> <name></name> <script></script> </part> <part> <id>49</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>496</left> <top>326</top> <right>512</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>BookMark</name> <script>on mouseUpsetBookmarkend mouseUp</script> </part> <part> <id>50</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>476</left> <top>314</top> <right>512</right> <bottom>328</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BookMarkNo</name> <script></script> </part> <part> <id>53</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>410</left> <top>317</top> <right>430</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13303</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGOPrevBMend mouseUp</script> </part> <part> <id>54</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>429</left> <top>317</top> <right>449</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13304</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGONextBMend mouseUp</script> </part> <part> <id>55</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>319</top> <right>31</right> <bottom>340</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>21700</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>GoHome</name> <script>on mouseUpgoHomeend mouseUp</script> </part> <part> <id>3</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>355</left> <top>28</top> <right>505</right> <bottom>99</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenuList</name> <script></script> </part> <part> <id>56</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <false /> </enabled> <rect> <left>448</left> <top>6</top> <right>466</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>12490</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>openGuide</name> <script>on mouseUpCNMGuide "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄"end mouseUp</script> </part> <part> <id>57</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>487</left> <top>5</top> <right>505</right> <bottom>23</bottom> </rect> <style>checkbox</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>createMark</name> <script>on mouseUpset marked of this card to hilite of meend mouseUp</script> </part> <part> <id>60</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>467</left> <top>6</top> <right>485</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6356</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>HelpON/OFF</name> <script>on mouseUpHelpToggleend mouseUp</script> </part> <content> <layer>background</layer> <id>1</id> <text>ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄</text> </content> <content> <layer>background</layer> <id>50</id> <text>0 / 0</text> </content> <content> <layer>background</layer> <id>3</id> <text>Untitled_1</text> </content> <name>ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄</name> <script>on openCardset the enabled of bg btn id 41 to (bg fld id 58 is "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ[")pass openCardend openCardon closeCardif the visible of bg fld id 42 thensend "mouseUp" to bg btn id 45end ifend closeCardon newCardset the cursor to watchput "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ[" into bg fld id 58pass newCardend newCardon commandKeyDown whichKeyif whichKey is "s" thenif the visible of bg fld id 42 then send "mouseUp true" to bg btn id 45else pass commandKeyDownelse if whichKey is "w" thenif the visible of bg fld id 42 then send "mouseUp" to bg btn id 45else pass commandKeyDownelsepass commandKeyDownend ifend commandKeyDownon controlKey whichKeyif whichKey = 4 then -- D "postﾃｧﾃ古ｨﾃｺ"sendBtn "bg btn id 40"else if whichKey = 5 then -- E "ﾃｯ窶愿ｨW"sendBtn "bg btn id 48"else if whichKey = 14 then -- N "ﾃｪVﾃ｣Kﾃｧﾃ湘ｪﾂｨ"sendBtn "bg btn id 47"else if whichKey = 15 then -- O "ﾃ烏ﾃ映ﾃ隠ﾃ運ﾃ[ﾃ｣Nﾃｬﾃ"sendBtn "bg btn id 34"else if whichKey = 18 then -- R "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ"sendBtn "bg btn id 43"else if the visible of bg fld id 42 thenif whichKey = 9 then -- tab or iput round(the scroll of bg fld id 42 / 14) + 1 into lselect before char 1 of line l of bg fld id 42elsepass controlKeyend ifelsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ[ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modeif mode then put "5,7,9,11,16,17,18,19,20,21,42,59" into listelse put "5,7,16,17,18,19,20,21,42,59" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatput "Untitled" into bg fld id 46set the width of bg fld id 46 to length (bg fld id 46) * 9put "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ[" into bg fld id 58if mode thenif the number of lines of bg fld "subMenuList" < 2 then put empty into bg fld "subMenuList"reNameCard "Untitled_1"end ifend clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMmacroReport,cNMvariableList,exitLabelset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"ReportCdNameget dataCheck(true)if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput upType() into uTypeput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"-- ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ ---> postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ[put bg fld id 5 into upFilePathupLoadFileCopy upFilePath,uTypeget the resultif "ﾃ烏ﾃ嘉｢ﾃ[" is in it thenmakeMacroError it,"ﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③",cdNameexit makeMacroelseput last line of it into upFileNamedelete last line of itput it after cNMmacroReportend if-- ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣put bg fld id 7 into filePath-- ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePath-- ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ ---> postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ[put "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"get readText(filePath)if the number of lines of it is 1 and "ﾃ烏ﾃ嘉｢ﾃ[" is in it thenmakeMacroError it,"ﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③",cdNameexit makeMacroelseget delUPLoadCommand(it)put commentfileName(true) into fileNameMtWriteFile postPath() & fileName,it,EditorCreator()if the result <> empty thenget "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃﾃεｧ竄ｬﾃ窶ｦﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" & return & the resultmakeMacroError it,"ﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③",cdNameexit makeMacroend ifend ifput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"put bg fld id 9 into forumNameput addZero(bg fld id 11,2) into libNumber-- GO Forumput "cNM" & forumName & "_" into variableNameif MtScanList (cNMvariableList,variableName,,true) is empty thendo "global" && variableNamedo "put empty into" && variableNameputVariableName variableNameget MacroGoForum(forumName)do "put it after" && variableNameend ifput "cNM" & ForumName & "_LIB_" & libNumber into variableNamedo "global" && variableNameif MtScanList (cNMvariableList,variableName,,true) is empty thendo "put empty into" && variableNameputVariableName variableNameend ifput empty into mdo "get" && variableNameif "s:LIB" && libNumber & "^m" is not in it thenput nextLabel() into label1put "m:" && "[" && ForumName && "]" && "LIB:" & libNumber && "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄" & return &ﾂｬ"s:LIB" && libNumber & "^m" & return &ﾂｬ"r:^mLIB>ﾆ" & label1 & ":^mFORUM>" & return after mput "cNM" & ForumName & "_LIB_" & libNumber & "_E" into upEndVNameputVariableName upEndVNamedo "global" && upEndVNameget label1 & ":" & return & "*: TotalLabel : 1" & returndo "put it into" && upEndVNameput label1 into exitLabelend ifput bg fld id 16 into dataNameput "m:" && dataName & return &ﾂｬ"s:UPL TYPE:" & uType && "PROT:BPL^m" & return after mput "*:ﾃ映ﾃ[ﾃ運ﾃｱﾂｺ" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & exitLabel & ":^mLIB>" & return after m-- "r:^mﾃ⑦" & return &ﾂｬput "s:" & dataName & "^m" & return &ﾂｬ"*:ﾃ､mﾃｮF" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return after mput "*:ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ " & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & keyWord() & "^m" & return &ﾂｬ"*:ﾃ､mﾃｮF" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:ﾃｧsﾃｬ邃｢ﾃ竕/E)" & return after mput "*:ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣" & return &ﾂｬ"m:" && fileName & return &ﾂｬ"u:" & fileName & return & "*:ﾃｧﾃﾃｱ竅" & return &ﾂｬ"r:^mﾃ⑦ﾆ&:^mmore>" & return & "s:1^m" & return &ﾂｬ"*:ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺ" & return & "r:^mﾃ⑦" & return after mput "m:" && upFileName & return &ﾂｬ"s:" & upFileName & "^m" & return &ﾂｬ"r:ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ､Jﾃｩn" & return &ﾂｬ"+:1" & return &ﾂｬ"*:ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃｨIﾃｳﾏ\" & return &ﾂｬ"r:LIB>" & return &ﾂｬ"+:0" & return after mdo "put m after" && variableNameend makeMacrofunction upTypeget bg fld id 58if it is "ﾃ影ﾃ鵜ﾃ厩ﾃ曳" then return "TXT"else if it is "NAPLPS" then return "NAP"else if it is "JPEG" then return "JPG"else return "BIN"end upTypefunction readText filePathset the cursor to watchput empty into theTextopen file filePathget the resultif it <> empty then return "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦" & itrepeatread from file filePath for 16384if it is empty then exit repeatput it after theTextend repeatclose file filePathreturn theTextend readTextfunction dataCheck modeput empty into rtif bg fld id 5 <> empty and there is not a file (bg fld id 5) then put "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" & return after rtif bg fld id 7 <> empty and there is not a file (bg fld id 7) then put "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" & return after rtput "5,7,9,11,16" into iput "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣,ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣,ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉,LIBﾃｮ窶佚ｧﾃ,ﾃ映ﾃ[ﾃ運ﾃｱﾂｺ" into trepeat with r = 1 to 5if bg fld id (item r of i) is empty thenput item r of t & "ﾃ邃｢ﾃｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtend ifend repeatput false into krepeat with r = 17 to 21if bg fld id r <> empty then put true into kend repeatif k is false then put "ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃ邃｢ﾃｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtif mode is true thenrepeat with r = 1 to the number of lines of rtput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦" before line r of rtend repeatend ifreturn rtend dataCheck----- ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ -----on upLoadFileCopy copyFilePath,upTypeput empty into returnTxtput postPath() into postPathput pathToFile(copyFilePath) into copyFileNameif upType is "TXT" then put "_" & copyFileName into copyFileNameif MtScanList(cd fld "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳" of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ",copyFileName,,true) is empty thenput copyFileName & return after cd fld "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳" of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ"end ifif getFldrPath(copyFilePath) is postPath then exit upLoadFileCopyput postPath & copyFileName into desFilePathput fileListInFldr(postPath) into postFileListif postFileList is empty or MtScanList(postFileList,copyFileName,,true) is empty then-- ﾃｬﾃ佚ｱﾂｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃｱ竕･ﾃﾂ｢ﾃｨﾃ催ｧﾃ｡MtCopyFile copyFilePath,desFilePathif the result is not empty thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃﾃεｧ竄ｬﾃ窶ｦﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" & return after returnTxtelseput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃ⑦" && desFilePath & return after returnTxtend ifelse-- postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ窶ｦﾃｬﾃ佚ｱﾂｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ窶ﾃﾃ暗ｨﾃ催ｧﾃ｡ﾃ②ﾃ･竏堙ﾂ｢ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃ嘉､ﾃ瑛ﾃ[ﾃ嘉put MtGetFInfo(copyFilePath) into copyFInfoput MtGetFInfo(desFilePath) into desFInfo-- ﾃｨCﾃｪ竕･ﾃｬﾋ凖邃｢ﾃ･竏堙ﾂ｢ﾃｨﾃ催ｧﾃ｡ﾃﾃ陛｣ﾃ･ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃ嘉､ﾃ瑛ﾃ[ﾃ嘉ﾃ･窶榲嘘ﾃ鋭ﾃ[ﾃ②ﾃﾂｪﾃﾃ催ﾂｻﾃ､Oﾃﾃ陛嘘ﾃ鋭ﾃ[ﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③if line 6 of desFInfo < line 6 of copyFInfo thenget changeName (copyFileName,postFileList)MtRenameFile desFilePath,itif the result is not empty thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ･竏堙ﾂ｢ﾃｬﾃ佚ｱﾂｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃε嘉､ﾃ瑛ﾃ[ﾃ嘉ﾃ竕暗烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" & return after returnTxtelseput "ﾃ･竏堙ﾂ｢ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃε嘉､ﾃ瑛ﾃ[ﾃ嘉ﾃ⑦" & it & return after returnTxtMtCopyFile copyFilePath,desFilePathif the result is not empty thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃﾃεｧ竄ｬﾃ窶ｦﾃ烏ﾃ嘉｢ﾃ[ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" & return after returnTxtelseput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘘ﾃ鋭ﾃ[ﾃ⑦" && desFilePath & return after returnTxtend ifend ifelseput "ﾃｬﾃ佚竏づ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃｧ窶ｺﾃﾃ暗ﾃε竕暗嘘ﾃ鋭ﾃ[ﾃﾂｵﾃ窶ｹﾃﾏ\ﾃﾃ津竕暗ﾂｵﾃﾎｩﾃ③" & return after returnTxtend ifend ifreturn returnTxt & copyFileNameend upLoadFileCopyfunction keyWordput empty into wrepeat with r = 17 to 21if bg fld id r <> empty then put bg fld id r into item ((the number of items of w) + 1) of wend repeatreturn wend keyWordfunction UPLoadCommand theTextput bg fld id 5 into filePathif filePath <> empty thenput PathToFile(filePath) into fileNameelseput empty into fileNameend ifput "#KY:" & keyWord() & return before theTextput "#TT:" & bg fld id 16 & return before theTextput "#FN:" & fileName & return before theTextreturn theTextend UPLoadCommandfunction commentfileName modeput bg fld id 9 & "-LIB" & bg fld id 11 & "-1" into fileNameif mode is true then put "_" before fileNameput fileListInFldr(postPath()) into FileListif FileList <> empty thenput changeName(fileName,FileList,"-") into fileNameend ifreturn fileNameend commentfileName-- ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ[ﾃ栄ﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｧﾃ古ｨﾃｺ --function delUPLoadCommand theTextrepeat with r = 1 to the number of lines of theTextget char 1 to 4 of line r of theTextif it <> "#FN:" and it <> "#TT:" and it <> "#KY:" thenif r > 1 then delete line 1 to (r - 1) of theTextexit repeatend ifend repeatreturn theTextend delUPLoadCommandon GComBtnif bg fld id 58 is "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ[" then return "bg btn id 41"else return emptyend GComBtnon scrFldsetScrollFld "bg fld id 42"end scrFld</script> </background>